﻿Imports System.Data.SqlClient
Imports System.Configuration

Public Class frmMemo



    Private Sub frmMemo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim dt As DataTable = Functions.SAP_Local_RunQuery("SELECT Name FROM [@MEMO]")
        grMemo.DataSource = dt
    End Sub

    Private Sub grMemo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grMemo.Click
        If grMemo.GetValue("Name").ToString <> "" Then
            txtMemo.Text = txtMemo.Text + vbCrLf + grMemo.GetValue("Name").ToString
        End If
    End Sub
End Class